%  This file is part of Erlywog.

%  Erlywog is free software: you can redistribute it and/or modify
%  it under the terms of the GNU General Public License as published by
%  the Free Software Foundation, either version 3 of the License, or
%  (at your option) any later version.

%  Erlywog is distributed in the hope that it will be useful,
%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%  GNU General Public License for more details.

%  You should have received a copy of the GNU General Public License
%  along with Erlywog.  If not, see <http://www.gnu.org/licenses/>.

%  Copyright Jasm Sison 2009

-module(blog_sidebar_controller).
-export([
  private/0
  , index/2
  , hyperlink_group/2
]
).

private () -> true.

%% TODO
%% - test for [] for 'bookmark"

index(A, PhasedVars) ->
  Query = {esql, {select,distinct,hyperlink_group,{from,bookmark}}}
  , {data,{mysql_result, _, Results, _, _}} = erlydb_mysql:q(Query)
  , case Results of
    [] -> {data, <<"No bookmarks found.">>}
    ;_ -> 
    [
      [ {ewc, blog_sidebar, hyperlink_group, [A, GroupName]} || GroupName <- Results ]
      , [ Ewc || {H, Ewc} <- PhasedVars, H =:= html_sidebar ]
    ]
  end.

hyperlink_group(_A, GroupName) ->
  Results = bookmark:find({hyperlink_group,'=',GroupName})
  , M = bookmark
  , Hyperlinks = [ {M:name(R),M:hyperlink(R)} || R <- Results ]
  , {data, {GroupName, Hyperlinks}}.

  



  
